home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / DATE16.QM < prev    next >
Text File  |  1992-05-27  |  30KB  |  568 lines
  1. *                              DATE16.QM, 1.6a
  2. *                        Written By Tom Hogshead
  3. *          With Macro Contributions By Tim Farley and Mel Hulse
  4. *                                 5/30/92
  5. *                                                                      Bytes
  6. *  Key       Subfile                   Description/Output           Small Fast
  7. * =====  ===============  ========================================== ==== ====
  8. *                         D A T E . . .
  9. *  @f4                    Jeudi 9 Avril 1992     ( )   French          89
  10. *  @f2                    Thursday 9 April 1992        European        83
  11. *  @f9                    |      (        no commas) European            407
  12. *  @f4   {e:\up\dat001}   9 April 1992                 European        68
  13. *  @f1   {e:\up\dat001}   |     ( no comma)           European            336
  14. *  @4    {e:\up\dat001}   April 9, 1992                                68
  15. *  @1    {e:\up\dat001}   |                                                333
  16. *  @2                     Thursday  April 9, 1992                      82
  17. *  @9                     |      ( no comma)                              403
  18. *  @[    @(rgt_bracket)   Thursday, April 9, 1992                      86
  19. *  @]    @(lft_bracket)   |                                                406
  20. *  @7                     4-9-92                             US -      31
  21. *  @6                     4/9/92                             US /      37
  22. *  @f10                   9-4-92                       European -      38
  23. *  @f3                    9/4/92                       European /      44
  24. *  @8                     9.4.92                       European .      44
  25. *  ^f2_                   Thu  4-16-1992               DOS format      33
  26. *  @f5   {e:\up\dat002}   Thursday, April 9, 1992 at 11:18 am         137
  27. *  @f6   {e:\up\dat002}   |                                                862
  28. *  @f7   {e:\up\dat003} Tom Hogshead, Friday, May 8, 1992 at 11:27 am 164
  29. *  @f8   {e:\up\dat003}   |                                                890
  30. *  ^f1_  {e:\up\dat003} Tom Hogshead  Friday, May 8, 1992 at 11:27 am 163
  31. *                                    ( no comma)
  32. *                         T I M E . . .
  33. *  @3    {e:\up\dat003}   5:26 pm                                      53
  34. *  @0    {e:\up\dat003}   |                                                252
  35. *
  36. *  @h                     Jump To Macro or Index Item In Current File
  37. *
  38. *     Description
  39. *     Index Use
  40. *     NOTE Re Configuration
  41. *     Timing Comparing @1 and @4 in dat001.qm
  42. *     Version History
  43. *
  44. *-- eoi
  45.  
  46.  
  47. * (DESCRIPTION)
  48. * --------------
  49. * DATEnn.QM are QEdit macros for alternate date and time formats:
  50. * - Date in English       Thursday,  April 9, 1992
  51. * - Date in European      Thursday 9 April 1992
  52. * - Date in French        Jeudi 9 Avril 1992
  53. * - Date in US Short      8/26/91
  54. * - Date in US Short      8-26-91
  55. * - Date in English       March 9, 1991
  56. * - Date in European      9 March 1991
  57. * - Date in English       Sunday, March 31, 1991 at 4:43 pm
  58. * - Name/Date/Time        Tom Hogshead, Thursday, April 11, 1991 at 4:01 pm
  59. * - Time in Standard      5:26 pm, not Military 17:26:37
  60.  
  61.  
  62. * (INDEX) USE
  63. * -------------
  64. * To locate a macro or item in this file, press @h, place the cursor
  65. * line on the desired item in the Index above, and press <enter>.
  66. * See BOOKxx.QM for more details.
  67.  
  68.  
  69. * (NOTE) RE CONFIGURATION
  70. * -------------------------
  71. * Macros using "delrtword" require Qconfig to be set as follows:
  72. * Delete white space after words with del_rt_word command (Y/N)? [Y] : Y
  73.  
  74.  
  75. * (Timing) Comparing @1 and @4 (dat001.qm)
  76. * ------------------------------------------
  77. *                  Repeats/Sec     Secs/Repeat
  78. *                  ===========     ===========
  79. *     @1              10              0.1     Approx. 10x faster
  80. *     @4 (cache)       5              0.2
  81. *     @4 (no cache)    1              1.0
  82.  
  83. *                          M A C R O S
  84. * ---------------------------------------------------------------------
  85. * @(2) Date in English Format "Thursday  April 9, 1992"
  86. *      Uses Data File $date, Small
  87. * ---------------------------------------------------------------------
  88. *   The data file $date must exist in the current directory or change
  89. *   "d:\path\" to your path containing $date to execute in any
  90. *   directory.  File $date contains:
  91. * ┌──────────────────────────────────────────────────────────────────┐
  92. * │$date                                                             │
  93. * │Mon Monday    Tue Tuesday  Wed Wednesday  Thu Thursday  Fri Friday│
  94. * │Sat Saturday  Sun Sunday   01 January     02 February   03 March  │
  95. * │04 April      05 May       06 June        07 July       08 August │
  96. * │09 September  10 October   11 November    12 December             │
  97. * └──────────────────────────────────────────────────────────────────┘
  98.  
  99. @2      macrobegin setscreenoff setinsmode defaultwordset insertdate
  100. * ------------------------ Remove Second Dash ------------------------*
  101.         wordleft toggleinsert backspace wordleft
  102. * ------------------ Remove Day Number Leading Zero ------------------*
  103.         unmarkblock markcolumn                      * Mark day digit 1
  104.         findreplace
  105.             "0" return delline return "ln" return   * Remove leading zero
  106. * ------------------------ Remove First Dash ------------------------*
  107.         backspace wordleft wordleft toggleinsert
  108. * ------------------------- Expand Day Name -------------------------*
  109.         markword cut onewindow horizontalwindow
  110.         editfile
  111. *           "d:\path\"                  * Change to path for "$date"
  112.             "$date" return
  113.         find paste return delline return
  114.         wordright markword copy prevwindow paste
  115. * ------------------ Replace Month Number with Name ------------------*
  116.         wordright markword cut nextwindow
  117.         find paste return delline return
  118.         wordright markword copy quit prevwindow onewindow paste
  119. * ------------------ Insert Comma After Day Number ------------------*
  120.         gotoblockend wordright markword gotoblockend "," wordright
  121.         markword gotoblockend cursorright unmarkblock
  122. *
  123. * 91 bytes Fri  04-10-1992  09:54:07 (TH @2)
  124. * 91 bytes Fri  04-10-1992  09:54:07 (TH @2, to TT #21/5260-63)
  125. * 91 bytes Fri  04-10-1992  09:54:07 (TH @2, to ALL #3/831-33 full)
  126. * 91 bytes Fri  04-10-1992  09:54:07 (TH @2, to ALL #3/834-35 full)
  127. * 82 bytes Tue  04-14-1992  06:34:07 (TH @2, shortened)
  128. * 82 bytes Tue  04-14-1992  06:34:07 (TH @2, to ALL #3/836)
  129. * 82 bytes Tue  05-12-1992  09:06:57 (TH @2, changed description)
  130.  
  131. * 
  132. * ----------------------------------------------------------------------
  133. * @(6) Date in US Short <4/9/92> not <Thu  04-09-1992>, No Filled Zeros
  134. * ----------------------------------------------------------------------
  135. @6  macrobegin setscreenoff defaultwordset
  136.     insertdate prevposition delrtword                   * Del day name
  137.     unmarkblock markcolumn
  138.     findreplace "0" return delline return "ln" return   * Remove leading zeros
  139.     wordright repeatfind
  140. *   wordleft unmarkblock markcharacter wordright        * Add for European
  141. *   markcharacter wordright moveblock                   * Add for European
  142.     backspace "/" wordright backspace "/"               * Delete dashes
  143.     delch delch                                         * Delete "19"
  144.     markword gotoblockend cursorright unmarkblock       * Pos 2 spcs right
  145. *
  146. * 61 bytes Tue  08-27-1991  00:17:17 (TH @6)
  147. * 62 bytes Wed  04-08-1992  20:50:23 (TH @6, added setscreenoff)
  148. * 62 bytes Wed  04-08-1992  20:50:23 (TH @6, to TT #21/5260-63)
  149. * 62 bytes Wed  04-08-1992  20:50:23 (TH @6, to ALL #3/831-33)
  150. * 37 bytes Mon  04-13-1992  15:57:23 (TH @6, shortened)
  151. * 37 bytes Mon  04-13-1992  15:57:23 (TH @6, to ALL #3/834-35)
  152.  
  153. * 
  154. * ----------------------------------------------------------------------
  155. * @(7) Date in US Short <4-9-92> not <Thu  04-09-1992>, No Filled Zeros
  156. * ----------------------------------------------------------------------
  157. @7  macrobegin setscreenoff defaultwordset
  158.     insertdate prevposition delrtword                   * Del day name
  159.     unmarkblock markcolumn
  160.     findreplace "0" return delline return "ln" return   * Remove leading zeros
  161.     wordright repeatfind
  162. *   wordleft unmarkblock markcharacter wordright        * Add for European
  163. *   markcharacter wordright moveblock                   * Add for European
  164.     wordright delch delch                               * Del "19"
  165.     markword gotoblockend cursorright unmarkblock       * Pos 2 spcs right
  166. *
  167. * 49 bytes Tue  08-27-1991  09:52:57 (TH @7)
  168. * 50 bytes Wed  04-08-1992  20:50:51 (TH @7, added setscreenoff)
  169. * 50 bytes Wed  04-08-1992  20:50:51 (TH @7, to TT #21/5260-63)
  170. * 50 bytes Wed  04-08-1992  20:50:51 (TH @7, to ALL #3/831-33)
  171. * 31 bytes Mon  04-13-1992  15:59:58 (TH @7, shortened)
  172. * 31 bytes Mon  04-13-1992  15:59:58 (TH @7, to ALL #3/834-35)
  173.  
  174. * 
  175. * ----------------------------------------------------------------------
  176. * @(8) Date in European <9.4.92> not <Thu  04-09-1992>, No Filled Zeros
  177. * ----------------------------------------------------------------------
  178. @8  macrobegin setscreenoff defaultwordset
  179.     insertdate prevposition delrtword                   * Del day name
  180.     unmarkblock markcolumn
  181.     findreplace "0" return delline return "ln" return   * Remove leading zeros
  182.     wordright repeatfind
  183.     wordleft unmarkblock markcharacter wordright        * Remove for US
  184.     markcharacter wordright moveblock                   * Remove for US
  185.     backspace "." wordright backspace "."               * Delete dashes
  186.     delch delch                                         * Delete "19"
  187.     markword gotoblockend cursorright unmarkblock       * Pos 2 spcs right
  188. *
  189. * 44 bytes Wed  04-15-1992  09:28:03 (TH @8)
  190.  
  191. * 
  192. * ---------------------------------------------------------------------
  193. * @(9) Date in English Format "Thursday  April 9, 1992", Fast
  194. * ---------------------------------------------------------------------
  195. * This macro was written after writing @f9 for Thomas Taylor on SemWare
  196. * ILink Conference 21 on Thursday  April 9, 1992.
  197.  
  198. @9      macrobegin setscreenoff savesettings setinsmode setsoundoff
  199.         defaultwordset
  200.         insertdate
  201.         toggleinsert wordleft backspace  * Delete dashes
  202.         wordleft backspace toggleinsert  *
  203. * ------------------------- Expand Day Name -------------------------*
  204.         wordleft wordleft markword       *  ue-tUE, d-weD, h-tHu, t-saT
  205.         find "ue" return "l" return jfalse A gotoblockend "s"
  206.     A:  find "d"  return "l" return jfalse B gotoblockend "nes"
  207.     B:  find "h"  return "l" return jfalse C gotoblockend "rs"
  208.     C:  find "t"  return "l" return jfalse D gotoblockend "ur"
  209.     D:                                       gotoblockend "day"
  210. * ------------------- Insert Comma After Day Name -------------------*
  211. *       "," delch             * Add to put comma after day name
  212. * ------------------ Replace Month Number with Name ------------------*
  213.         wordright markcolumn
  214.         findreplace "0" return delline return "ln" return
  215.         markword
  216.         findreplace "1"  return "January"   return "lnw" return
  217.         findreplace "2"  return "February"  return "lnw" return
  218.         findreplace "3"  return "March"     return "ln"  return
  219.         findreplace "4"  return "April"     return "ln"  return
  220.         findreplace "5"  return "May"       return "ln"  return
  221.         findreplace "6"  return "June"      return "ln"  return
  222.         findreplace "7"  return "July"      return "ln"  return
  223.         findreplace "8"  return "August"    return "ln"  return
  224.         findreplace "9"  return "September" return "ln"  return
  225.         findreplace "10" return "October"   return "ln"  return
  226.         findreplace "11" return "November"  return "ln"  return
  227.         findreplace "12" return "December"  return "ln"  return
  228.         wordright markcolumn
  229.         findreplace
  230.             "0" return delline return "ln" return   * Remove leading zeros
  231.         markword gotoblockend ","                   * Insert "," after day #
  232.         wordright markword gotoblockend cursorright
  233.         unmarkblock restoresettings
  234. *
  235. * 413 bytes Fri  04-10-1992  09:52:09 (TH @9)
  236. * 413 bytes Fri  04-10-1992  09:52:09 (TH @9, to TT #21/5260-63)
  237. * 413 bytes Fri  04-10-1992  09:52:09 (TH @9, to ALL #3/831-33 full)
  238. * 403 bytes Mon  04-13-1992  11:04:43 (TH @9, shortened)
  239. * 403 bytes Mon  04-13-1992  11:04:43 (TH @9, to ALL #3/834-35)
  240.  
  241. * 
  242. * ---------------------------------------------------------------------
  243. * @(f2) Date in European Format "Thursday 9 April 1992",
  244. *       Uses Data File $date, Small
  245. * ---------------------------------------------------------------------
  246. *   The data file $date must exist in the current directory or change
  247. *   "d:\path\" to your path containing $date to execute in any
  248. *   directory.  File $date contains:
  249. *   ┌──────────────────────────────────────────────────────────────────┐
  250. *   │$date                                                             │
  251. *   │Mon Monday    Tue Tuesday  Wed Wednesday  Thu Thursday  Fri Friday│
  252. *   │Sat Saturday  Sun Sunday   01 January     02 February   03 March  │
  253. *   │04 April      05 May       06 June        07 July       08 August │
  254. *   │09 September  10 October   11 November    12 December             │
  255. *   └──────────────────────────────────────────────────────────────────┘
  256.  
  257. @f2     macrobegin setscreenoff setinsmode defaultwordset insertdate
  258. * ------------------------ Remove Second Dash ------------------------*
  259.         wordleft toggleinsert backspace wordleft
  260. * ------------------ Remove Day Number Leading Zero ------------------*
  261.         unmarkblock markcolumn                      * Mark day digit 1
  262.         findreplace
  263.             "0" return delline return "ln" return   * Remove leading zero
  264. * --------------- Remove First Dash, Delete Day Name ---------------*
  265.         backspace wordleft wordleft toggleinsert
  266. * ------------------------- Expand Day Name -------------------------*
  267.         markword cut onewindow horizontalwindow
  268.         editfile
  269. *           "d:\path\"                  * Change to path for "$date"
  270.             "$date" return
  271.         find paste return delline return
  272.         wordright markword copy prevwindow paste
  273. * ----------------- Delete Extra Char After Day Name -----------------*
  274.         gotoblockend delch                                                 *|
  275. * ------------------ Replace Month Number with Name ------------------*
  276.         wordright markword cut nextwindow
  277.         find paste return delline return
  278.         wordright markword copy quit prevwindow onewindow paste
  279. * ----------------------- Swap Month With Day -----------------------*
  280.         gotoblockend markcolumn wordright wordright moveblock              *|
  281.         wordright markword gotoblockend cursorright unmarkblock
  282. *
  283. * 96 bytes Thu  04-09-1992  21:51:03 (TH @f2)
  284. * 96 bytes Thu  04-09-1992  21:51:03 (TH @f2, to TT #21/5260-63 full)
  285. * 96 bytes Thu  04-09-1992  21:51:03 (TH @f2, to ALL #3/831-33)
  286. * 87 bytes Tue  04-14-1992  07:36:16 (TH @f2, shortened)
  287. * 83 bytes Tue  05-12-1992  08:27:27 (TH @f2, removed commas *|)
  288. * 83 bytes Tue  05-12-1992  09:18:08 (TH @f2, changed description)
  289.  
  290. * 
  291. * ----------------------------------------------------------------------
  292. * @(f3) Date in European <9/4/92> not <Thu  04-09-1992>, No Filled Zeros
  293. * ----------------------------------------------------------------------
  294. @f3 macrobegin setscreenoff defaultwordset
  295.     insertdate prevposition delrtword                   * Del day name
  296.     unmarkblock markcolumn
  297.     findreplace "0" return delline return "ln" return   * Remove leading zeros
  298.     wordright repeatfind
  299.     wordleft unmarkblock markcharacter wordright        * Remove for US
  300.     markcharacter wordright moveblock                   * Remove for US
  301.     backspace "/" wordright backspace "/"               * Delete dashes
  302.     delch delch                                         * Delete "19"
  303.     markword gotoblockend cursorright unmarkblock       * Pos 2 spcs right
  304. *
  305. * 44 bytes Wed  04-15-1992  09:16:30 (TH @f3)
  306.  
  307. * 
  308. * ---------------------------------------------------------------------
  309. * @(f4) Date in French Format "Jeudi 9 Avril 1992 ",
  310. *       Uses Data File $date.fr
  311. * ---------------------------------------------------------------------
  312. * The following data file $date.fr must exist in the current directory
  313. * and must be modified further with French day and month names, like
  314. * Thu and 04.  Change $date.fr to d:\path\$date.fr to execute in any
  315. * directory.  File $date.fr contains:
  316.  
  317. *   ┌───────────────────────── French ─────────────────────────────────┐
  318. *   │$date.fr                                                          │
  319. *   │Mon Lundi     Tue Mardi    Wed Mercredi  Thu Jeudi    Fri Vendredi│
  320. *   │Sat Samedi    Sun Dimanche 01 Janvier    02 Février   03 Mars     │
  321. *   │04 Avril      05 Mai       06 Juin       07 Juillet   08 Août     │
  322. *   │09 Septembre  10 Octobre   11 Novembre   12 Décembre              │
  323. *   └──────────────────────────────────────────────────────────────────┘
  324.  
  325. * This macro was written at the request of Christian Perrier on the
  326. * SemWare Intelec echo Conference #24, Message #840 5/11/92 who
  327. * graciously provided the translated data table $date.fr.  The
  328. * algorithm is the same as @f2 except the data file is $date.fr instead
  329. * of $date.  Today's date in French is Mercredi 20 Mai 1992.
  330.  
  331. @f4     macrobegin setscreenoff setinsmode defaultwordset insertdate
  332. * ------------------------ Remove Second Dash ------------------------*
  333.         wordleft toggleinsert backspace wordleft
  334. * ------------------ Remove Day Number Leading Zero ------------------*
  335.         unmarkblock markcolumn                      * Mark day digit 1
  336.         findreplace
  337.             "0" return delline return "ln" return   * Remove leading zero
  338. * ---------------- Remove First Dash, Delete Day Name ----------------*
  339.         backspace wordleft wordleft toggleinsert
  340. * ---------------- Expand Day Name To French Day Name ----------------*
  341.         markword cut onewindow horizontalwindow
  342.         editfile "$date.fr" return                                         *|
  343.         find paste return delline return
  344.         wordright markword copy prevwindow paste
  345.         gotoblockend delch              * Removes space after day name     *|
  346. * ----------- Replace Month Number with French Month Name -----------*
  347.         wordright markword
  348.         cut nextwindow
  349.         find paste return delline return
  350.         wordright markword copy quit prevwindow onewindow paste
  351. * ----------------------- Swap Month With Day -----------------------*
  352.         gotoblockend                                                       *|
  353.         markcolumn wordright wordright moveblock wordright
  354.         markword gotoblockend cursorright unmarkblock
  355. *
  356. * 87 bytes Tue  04-14-1992  07:36:16 (TH @f2, in Amac42e.zip)
  357. * 89 bytes Mon  05-11-1992  13:57:19 (TH @f2, French version)
  358. * 89 bytes Mon  05-11-1992  13:57:19 (TH @f2, to CP #24/840)
  359. * 89 bytes Wed  05-20-1992  14:53:00 (TH @f4)
  360.  
  361. * 
  362. * ---------------------------------------------------------------------
  363. * @(f9) Date in European Format "Thursday 9 April 1992", Fast
  364. * ---------------------------------------------------------------------
  365. * This macro is a modification of a macro written for Thomas Taylor on
  366. * SemWare ILink Conference 21 on Thursday, 9 April, 1992.
  367.  
  368. @f9     macrobegin setscreenoff savesettings setinsmode setsoundoff
  369.         defaultwordset
  370.         insertdate
  371.         toggleinsert wordleft backspace  * Delete dashes
  372.         wordleft backspace toggleinsert  *
  373. * ------------------------- Expand Day Name -------------------------*
  374.         wordleft wordleft markword       *  ue-tUE, d-weD, h-tHu, t-saT
  375.         find "ue" return "l" return jfalse A gotoblockend "s"
  376.     A:  find "d"  return "l" return jfalse B gotoblockend "nes"
  377.     B:  find "h"  return "l" return jfalse C gotoblockend "rs"
  378.     C:  find "t"  return "l" return jfalse D gotoblockend "ur"
  379.     D:                                       gotoblockend "day"
  380.         delch             * Delete extra space after day name              *|
  381. * ------------------ Replace Month Number with Name ------------------*
  382.         wordright markcolumn
  383.         findreplace "0" return delline return "ln" return
  384.         markword
  385.         findreplace "1"  return "January"   return "lnw" return
  386.         findreplace "2"  return "February"  return "lnw" return
  387.         findreplace "3"  return "March"     return "ln"  return
  388.         findreplace "4"  return "April"     return "ln"  return
  389.         findreplace "5"  return "May"       return "ln"  return
  390.         findreplace "6"  return "June"      return "ln"  return
  391.         findreplace "7"  return "July"      return "ln"  return
  392.         findreplace "8"  return "August"    return "ln"  return
  393.         findreplace "9"  return "September" return "ln"  return
  394.         findreplace "10" return "October"   return "ln"  return
  395.         findreplace "11" return "November"  return "ln"  return
  396.         findreplace "12" return "December"  return "ln"  return
  397.         wordright markcolumn
  398.         findreplace
  399.             "0" return delline return "ln" return   * Remove leading zeros
  400. * ----------------------- Swap Month With Day -----------------------*
  401.         markword cursorleft markcolumn wordleft moveblock shiftleft        *|
  402.         wordright wordright markword gotoblockend cursorright
  403.         unmarkblock restoresettings
  404. *
  405. * 588 bytes Wed  04-08-1992  17:59:15 (TH @f9, to TT #21/5256)
  406. * 417 bytes Thu  04-09-1992  12:57:57 (TH @f9, shortened/OK for days 10+)
  407. * 417 bytes Thu  04-09-1992  12:57:57 (TH @f9, to TT #21/5260-63 full)
  408. * 417 bytes Thu  04-09-1992  12:57:57 (TH @f9, to ALL #3/831-33)
  409. * 414 bytes Tue  04-14-1992  18:02:53 (TH @f9, shortened)
  410. * 407 bytes Tue  05-12-1992  08:44:01 (TH @f9, removed commas *|)
  411.  
  412. * 
  413. * ----------------------------------------------------------------------
  414. * @(f10) Date in European  <9-4-92> not <Thu  04-09-1992>, No Filled Zeros
  415. * ----------------------------------------------------------------------
  416. @f10 macrobegin setscreenoff defaultwordset
  417.     insertdate prevposition delrtword                   * Del day name
  418.     unmarkblock markcolumn
  419.     findreplace "0" return delline return "ln" return   * Remove leading zeros
  420.     wordright repeatfind
  421.     wordleft unmarkblock markcharacter wordright        * Remove for US
  422.     markcharacter wordright moveblock                   * Remove for US
  423.     wordright delch delch                               * Del "19"
  424.     markword gotoblockend cursorright unmarkblock       * Pos 2 spcs right
  425. *
  426. * 38 bytes Wed  04-15-1992  09:19:41 (TH @f10)
  427.  
  428. * 
  429. * ---------------------------------------------------------------------
  430. * @[ @(rgt_bracket)  Date in English Format "Thursday, April 9, 1992"
  431. *                    Uses Data File $date, Small
  432. * ---------------------------------------------------------------------
  433. *   The data file $date must exist in the current directory or change
  434. *   "d:\path\" to your path containing $date to execute in any
  435. *   directory.  File $date contains:
  436. * ┌──────────────────────────────────────────────────────────────────┐
  437. * │$date                                                             │
  438. * │Mon Monday    Tue Tuesday  Wed Wednesday  Thu Thursday  Fri Friday│
  439. * │Sat Saturday  Sun Sunday   01 January     02 February   03 March  │
  440. * │04 April      05 May       06 June        07 July       08 August │
  441. * │09 September  10 October   11 November    12 December             │
  442. * └──────────────────────────────────────────────────────────────────┘
  443.  
  444. @[      macrobegin setscreenoff setinsmode defaultwordset insertdate
  445. * ------------------------ Remove Second Dash ------------------------*
  446.         wordleft toggleinsert backspace wordleft
  447. * ------------------ Remove Day Number Leading Zero ------------------*
  448.         unmarkblock markcolumn                      * Mark day digit 1
  449.         findreplace
  450.             "0" return delline return "ln" return   * Remove leading zero
  451. * ------------------------ Remove First Dash ------------------------*
  452.         backspace wordleft wordleft toggleinsert
  453. * ------------------------- Expand Day Name -------------------------*
  454.         markword cut onewindow horizontalwindow
  455.         editfile
  456. *           "d:\path\"              * Change to your path for "$date"
  457.             "$date" return
  458.         find paste return delline return
  459.         wordright markword copy prevwindow paste
  460. * ------------------- Insert Comma After Day Name -------------------*
  461.         gotoblockend "," delch  * Remove to NOT put comma after day name
  462. * ------------------ Replace Month Number with Name ------------------*
  463.         wordright markword cut nextwindow
  464.         find paste return delline return
  465.         wordright markword copy quit prevwindow onewindow paste
  466. * ------------------ Insert Comma After Day Number ------------------*
  467.         gotoblockend wordright markword gotoblockend "," wordright
  468.         markword gotoblockend cursorright unmarkblock
  469. *
  470. * 86 bytes Wed  04-15-1992  09:31:10 (TH @[)
  471. * 86 bytes Tue  05-12-1992  09:07:51 (TH @[, changed description)
  472.  
  473. * 
  474. * ---------------------------------------------------------------------
  475. * @] @(lft_bracket)  Date in English Format "Thursday, April 9, 1992"
  476. * ---------------------------------------------------------------------
  477. @]      macrobegin setscreenoff savesettings setinsmode setsoundoff
  478.         defaultwordset
  479.         insertdate
  480.         toggleinsert wordleft backspace  * Delete dashes
  481.         wordleft backspace toggleinsert  *
  482. * ------------------------- Expand Day Name -------------------------*
  483.         wordleft wordleft markword       *  ue-tUE, d-weD, h-tHu, t-saT
  484.         find "ue" return "l" return jfalse A gotoblockend "s"
  485.     A:  find "d"  return "l" return jfalse B gotoblockend "nes"
  486.     B:  find "h"  return "l" return jfalse C gotoblockend "rs"
  487.     C:  find "t"  return "l" return jfalse D gotoblockend "ur"
  488.     D:                                       gotoblockend "day"
  489. * ------------------- Insert Comma After Day Name -------------------*
  490.         "," delch             * Add to put comma after day name
  491. * ------------------ Replace Month Number with Name ------------------*
  492.         wordright markcolumn
  493.         findreplace "0" return delline return "ln" return
  494.         markword
  495.         findreplace "1"  return "January"   return "lnw" return
  496.         findreplace "2"  return "February"  return "lnw" return
  497.         findreplace "3"  return "March"     return "ln"  return
  498.         findreplace "4"  return "April"     return "ln"  return
  499.         findreplace "5"  return "May"       return "ln"  return
  500.         findreplace "6"  return "June"      return "ln"  return
  501.         findreplace "7"  return "July"      return "ln"  return
  502.         findreplace "8"  return "August"    return "ln"  return
  503.         findreplace "9"  return "September" return "ln"  return
  504.         findreplace "10" return "October"   return "ln"  return
  505.         findreplace "11" return "November"  return "ln"  return
  506.         findreplace "12" return "December"  return "ln"  return
  507.         wordright markcolumn
  508.         findreplace
  509.             "0" return delline return "ln" return   * Remove leading zeros
  510.         markword gotoblockend ","                   * Insert "," after day #
  511.         wordright markword gotoblockend cursorright
  512.         unmarkblock restoresettings
  513. *
  514. * 406 bytes Wed  04-15-1992  11:34:17 (TH @])
  515.  
  516. * 
  517. * ----------------------------------------------------------------------
  518. * ^(f2_) Date in DOS Format <Thu  4-16-1992>, No Filled Zero
  519. * ----------------------------------------------------------------------
  520. ^f2 macrobegin setscreenoff defaultwordset
  521.     insertdate prevposition wordright                   * Pos on month
  522.     unmarkblock markcolumn
  523.     findreplace "0" return delline return "ln" return   * Remove leading zero
  524.     jtrue BEFORE_OCT
  525.     cursorleft delch                                    * Del spc if after Sep
  526.  BEFORE_OCT:
  527.     wordright wordright                                 * Pos on year
  528.     markword gotoblockend cursorright unmarkblock       * Pos 2 spcs right
  529. *
  530. * 33 bytes Thu  04-16-1992  21:41:52 (TH ^f2)
  531.  
  532. * 
  533. * ----------------------------------------------------------------------
  534. * @(h) Finds First Word On Cursor Line Marked In File Below
  535. * ----------------------------------------------------------------------
  536. * Press @ and h at the same time.  Cursor down to desired line in
  537. * Index.  Press <enter> to locate the desired item from the Index.
  538. * See BOOKxx.QM in AMACxx.Zip for more discussion.
  539.  
  540. @h      macrobegin begfile unmarkblock markline markline
  541.         pause
  542.         wordright markword copy endpara
  543.         find "(" paste ")"  return return
  544.         begline
  545. *
  546. * 22 bytes Tue  04-09-1991  16:23:53
  547.  
  548. * (Version) History
  549. * ------------------
  550. *   1.4 - Added @6 and @7.                                             8/27/91
  551. *       - In AMAC42.ZIP.                                               3/28/92
  552. *   1.5 - Made subfiles dat001/002/003.qm.  Changed keys.              4/15/92
  553. *       - Added new macros.                                            4/16/92
  554. *       - In Amac42e.zip.                                              4/26/92
  555. *   1.6 - Changed @f2/f9.  Changed @f1/f4 in dat001.qm.                5/12/92
  556. *       - Changed descriptions of all macros using $date and $time.    5/12/92
  557. *       - Added @f4 for date in French, Mercredi 20 Mai 1992.          5/20/92
  558. *       - In Amac43.zip.                                               5/27/92
  559. *   1.6a- Added ( ) to Index line 1 for bok001.qm macros.              5/30/92
  560. *     
  561. *     
  562. *
  563.  
  564. * FOOTER MADE WITH @f7 in dat003.qm:
  565. * Tom Hogshead, Tuesday, May 12, 1992 at 12:12 pm
  566. *
  567. *--eof
  568.